home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / GRAPTIES / PCDRAFT2.LZH / AUTO.SCR < prev    next >
Text File  |  1986-08-24  |  251b  |  24 lines
  1. mode transparent
  2. let c = (500)
  3. let d = (1)
  4. let e = (280)
  5. let f = (199)
  6. repeat (18)
  7.   inc c
  8.   inc c
  9.   inc c
  10.   inc c
  11.   dec e
  12.   dec e
  13.   inc d
  14.   inc d
  15.   dec f
  16.   dec f
  17.   dec f
  18.   dec f
  19.   line(c,d,e,f);
  20. endr
  21. Save Screen autopic
  22. quit
  23.  
  24.